(help-xref-interned): Bind inhibit-read-only when

inserting.

diff --git a/lisp/help.el b/lisp/help.el
index 45d84b88970083295a09ddbc5e632e181c72429b..7c59a96ef4345c2d8aab4b4fa1cb33bd5bc176dd 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1030,7 +1030,8 @@ help buffer."
     ;; We now have a help buffer on the variable.  Insert the function
     ;; text after it.
     (goto-char (point-max))
-    (insert "\n\n" fdoc))
+    (let ((inhibit-read-only t))
+      (insert "\n\n" fdoc)))
   (goto-char (point-min))
   (help-setup-xref (list #'help-xref-interned symbol) nil))